home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)e8.d64
/
keyboard intro.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
86 lines
90 POKE53280,9:POKE53281,9
100 PRINT"[147][150] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
102 [153]" (null)RIGHT$(null)(null)(null)(null)STR$(null)LEN(null)RIGHT$(null)(null)CLOSE(null)(null)CLOSE(null)LEFT$VALCLOSE(null)VAL(null)PEEK(null)ATN(null)STR$(null)
104 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
105 [153]," BY
106 PRINT,"[211]TEVEN [196]ARNOLD
107 [153],"(null).(null). PEEKOX 201
108 PRINT,"[193]LEXANDRA, [206]EW [218]EALAND
109 [141]2000:[141]2000
110 [153]"LOAD(null)HE PURPOSE OF THIS PROGRAM IS TO
115 PRINT"DEMONSTRATE THE FEATURES OF THE KEYBOARD
120 [153]"AND GIVE YOU SOME PRACTICE IN USING THE
125 PRINT"KEYS. [198]IRST OF ALL, HOLD DOWN THE [211][200][201][198][212]
130 [153]"KEY AND PRESS ORTANTANTANTAN^
132 PRINT" [221][195][204][210] [221]
134 [153]" (null)LEFT$(null)(null)VAL(null)
136 PRINT" [173][192][192][192][192][189]
140 X$[178]"LOAD":[141]1000:[141]2000
145 [153]"(null)ELL DONE. (null)OU HAVE JUST CLEARED THE
150 PRINT"SCREEN. [206]OW DO IT AGAIN.":GOSUB1000:GOSUB2000
160 PRINT"[199]OOD. [206]OW WHAT DO YOU THINK WILL HAPPEN
170 [153]"IF YOU PRESS LEN(null)(null)-LEFT$(null)(null)VAL WITHOUT HOLDING
180 PRINT"DOWN [211][200][201][198][212][146]? [212]RY IT.":X$="":GOSUB1000:POKE204,0:GOSUB2000
190 PRINT"[147][193]S YOU SEE, PRESSING [195][204][210]-[200][207][205][197] ALONE PUTS
200 [153]"THE FLASHING CURSOR IN THE TOP CORNER
210 PRINT"WITHOUT CLEARING THE SCREEN. [194]Y THE
220 [153]"WAY, THE TOP CORNER IS CALLED THE 'HOME'
230 PRINT"POSITION. [206]OW PRESS [200][207][205][197][146] AGAIN.":GOSUB1000:POKE204,0:GOSUB2000
240 PRINT"[147][212]HE MAIN PART OF THE KEYBOARD WORKS JUST
250 [153]"LIKE A TYPEWRITER. RIGHT$F YOU WANT CAPITAL
260 PRINT"LETTERS, PRESS THE SHIFT KEY. [207]THERWISE
270 [153]"LOWER-CASE LETTERS WILL BE PRINTED.
280 PRINT"[212]YPE '[206]EW [217]ORK [195]ITY' AND THEN CLEAR THE
290 [153]"SCREEN.":A$[178]"(null)EW (null)ORK LENITYLOAD":[129]I[178]1[164]14:X$[178][202](A$,I,1):[141]1000
300 [130]:[141]2000
310 [153]"(null)OW TRY TYPING '201+395=596', THEN CLEAR
320 PRINT"THE SCREEN.":A$="201+395=596[147]":FORI=1TO12:X$=MID$(A$,I,1):GOSUB1000
330 NEXT:GOSUB2000
340 PRINT"[206]OW, HOME THE CURSOR AND TYPE:
350 [153]" ATN BICYCLE HAS TWOWAIT WHEELS
360 PRINT"[212]O HIGHLIGHT THE WORD 'TWO', HOLD DOWN
370 [153]"LEN(null)(null)(null) AND PRESS (null)(null)(null)-(null)(null). (null)O TURN OFF THE
380 PRINT"HIGHLIGHTING, HOLD DOWN [195][212][210][204] AND PRESS
390 [153]"(null)(null)(null)-(null)ASCASC. (null)HEN YOU ARE FINISHED, CLEAR
400 PRINT"THE SCREEN.":A$="[193] BICYCLE HAS TWO[146] WHEELS[147]":FORI=1TO28
410 X$=MID$(A$,I,1):GOSUB1000:NEXT:GOSUB2000
420 PRINT"[206]OW TYPE THIS:
430 [153]" ATNN INSECTWAIT HAS SIX LEGS":A$[178]"ATNN INSECTWAIT HAS SIX LEGS"
440 [129]I[178]1[164]24:X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
450 [153]:[153]"(null)OW THIS:
460 PRINT" [193] SPIDER[146] HAS EIGHT LEGS":A$="[193] SPIDER[146] HAS EIGHT LEGS"
470 FORI=1TO25:X$=MID$(A$,I,1):GOSUB1000:NEXT:GOSUB2000
480 PRINT"[147][212]HE [195][210][211][210][146] KEYS ENABLE YOU TO MOVE THE
490 [153]"CURSOR AROUND THE SCREEN. (null)ORMALLY THEY
500 PRINT"MOVE THE CURSOR DOWN OR RIGHT, BUT IF
510 [153]"YOU PRESS (null)LEFT$RIGHT$ASC(null)WAIT AT THE SAME TIME, THE
520 PRINT"CURSOR WILL MOVE UP OR LEFT. [213]SE THE
530 [153]"LEN(null)(null)(null)WAIT KEYS TO FOLLOW THE TRACK BELOW.
540 PRINT"* ************ *******************
542 [153]"* * * * *
544 PRINT"* * **** *** * * *** *************
546 [153]"* * * * * * * * * *
548 PRINT"* ****** * * *** * * *************
550 [153]"* * * * * *
552 PRINT"********** ******* ***************":PRINT"[145][145][145][145][145][145][145]";
555 A$="[145][145][145][145][145][145][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157]"
556 A$=A$+"[145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145][145][145][157][157][157][157][157][157][157][157][157][157][157][145][145][157][157][157]"
560 FORI=1TO138:X$=MID$(A$,I,1):GOSUB1000:NEXT:PRINT"[147]":GOSUB2000
570 PRINT"[212]HE LAST KEY WE WILL EXAMINE IS THE
580 [153]"RIGHT$(null)(null)(null)-STR$VAL(null) KEY. (null)HEN YOU MAKE A MISTAKE
590 PRINT"TYPING, PRESS THIS KEY TO DELETE THE
600 [153]"LAST LETTER. (null)RY CORRECTING THESE
610 PRINT"SENTENCES:
620 [153]" (null)HE CAPITAL OF VALNGLAND IS (null)ONDOS";:A$[178]"N":[129]I[178]1[164]2
630 X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
640 [153]:[153]" (null)YDNEY IS A CITY IN ATNUSTRIA";:A$[178]"ALIA":[129]I[178]1[164]6
650 X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
660 [153]:[153]" (null)ARIS IS THE CAPITAL OF ASCRNCE";:A$[178]"ANCE":[129]I[178]1[164]7
670 X$[178][202](A$,I,1):[141]1000:[130]:[141]2000
680 [153]"LOAD(null)OU HAVE DONE VERY WELL.
999 END
1000 POKE204,0:PRINT" [157]";
1010 GETG$:IFG$<>X$THEN1010
1020 POKE204,1:PRINT" [157]"G$;:RETURN
2000 FORZ=1TO2000:NEXT:RETURN